Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

N=5 And D1001Return
D=10012Mat F[L,C]
ClrGraph
For 1T To 20
Getkey=7155A
Next
ViewWindow 1,127,1,1,63,1
Cls
1J
0K
Mat G[4,1]M
Mat G[4,2]
Mat G[4,4]E
If M>:Then M
Mat G[4,1]
IfEnd
100S
1001=D And N=51000S
Horizontal 10
Text 57,1,"COUPS:[MENU]"
Getkey=75Goto F
For 52T To 53
F-Line T,10,T,1
Next
Mat G[4,3]V
Text 57,55,"MP: /"
Text 57,68,M
Text 57,84,
F-Line 96,10,96,1
Text 57,100,"HP:"
Text 57,111,V
0P
0X
1A
1B
Prog "MONSTRE"
80A
12B
0P
Prog "CLAD"
1P
Prog "CLAD"
Goto 1
Lbl 3
Cls
RclPict 1
S-WS
Text 57,68," "
Text 57,68,M
Text 57,111," "
Text 57,111,V
StoPict 1
1P
Prog "CLAD"
Text 40,40,-W
For 1T To 600
Next
Text 40,40," "
Goto 1
Lbl 4
1=KGoto A
1J
2I
O=2 Or O=43I
Int (Ran#xI+10)C
O=1255C
Prog "COUPS"
C=10V-Int (Ran#x10+10)xMat G[4,4]V
Cls
RclPict 1
Text 57,111," "
Text 57,111,V
Text 57,68," "
Text 57,68,M
StoPict 1
1P
Prog "CLAD"
11=CGoto 3
Lbl 1
GetkeyZ
S<0Goto F
V<0Goto F
J=2Goto 4
Z=71M+2M
Z=61V+10V
Z=51E+1E
Z=79777V
V=777Goto 2
Z=72Text 20,60,S
48=ZGoto 2
Goto 1
Lbl 2
If V=777:Then 1K
Goto A
IfEnd
For 16G To 46 Step 5
Text G,10," "
Next
F-Line 10,53,80,53
F-Line 80,53,80,13
F-Line 80,13,10,13
F-Line 10,13,10,53
Text 13,12,"ATTAQUER:[A]"
Text 21,12,"MAGIE:[M]"
Text 29,12,"INVOCATION:[I]"
Text 37,12,"OBJET:[O]"
0W
Lbl P
GetkeyZ
Z0Goto Q
Goto P
Lbl Q
Z=76Goto A
Z=74Goto B
Z=55Goto C
Z=54Goto D
Goto 2
Lbl D
For 13G To 43 Step 5
Text G,11," "
Next
Text 14,12,"POTION: [P]"
Text 14,41,Mat G[4,6]
Text 24,12,"ETHER: [E]"
Text 24,36,Mat G[4,8]
Text 34,12,"SUPERPOTION: [S]"
Text 34,61,Mat G[4,7]
Text 44,12,"X-ETHER: [X]"
Text 44,45,Mat G[4,9]
For 1T To 9
1T
GetkeyZ
Z09T
Next
If Z=43 And Mat G[4,7]>0:Then Mat G[4,7]-1Mat G[4,7]
V+100xMat G[4,4]V
0W
2J
Goto 3
IfEnd
If Z=36 And Mat G[4,8]>0:Then Mat G[4,8]-1Mat G[4,8]
M+Int (Mat G[4,2]2)M
M>Mat G[4,2]Mat G[4,2]M
0W
2J
Goto 3
IfEnd
If Z=42 And Mat G[4,9]>0:Then Mat G[4,9]-1Mat G[4,9]
Mat G[4,2]M
0W
2J
Goto 3
IfEnd
If Z=73 And Mat G[4,6]>0:Then Mat G[4,6]-1Mat G[4,6]
V+50V
2J
0W
Goto 3
IfEnd
Goto 2
Lbl B
For 13G To 43 Step 5
Text G,11," "
Next
Text 13,12,"FEU5 MP [F]"
Text 20,12,"ECLAIR6 MP [E]"
Text 27,12,"VIE6 MP [V]"
Text 34,12,"ULTIMA20 MP [U]"
For 1T To 2
1T
GetkeyZ
Z02T
Next
If Z=62 And M>6:Then 5C
VIE
80S
14H
Prog "COUPS"
2J
M-6M
Ex100+VV
0W
Goto 3
IfEnd
If Z=26 And M>5:Then 4C
FEU
S-20S
Prog "COUPS"
2J
M-5M
Ex30W
Goto 3
IfEnd
If Z=72 And M>19:Then 3C
ULTIMA
Prog "COUPS"
For 1T To 300
Next
Cls
RclPict 1
1P
Prog "CLAD"
2J
M-20M
Ex90W
Goto 3
IfEnd
If Z=36 And M>6:Then 2C
ECLAIR
Cls
RclPict 1
3P
Prog "CLAD"
-10A
14B
Prog "COUPS"
For 1T To 300
Next
Cls
RclPict 1
1P
80A
12B
2J
M-6M
30xEW
2J
Goto 3
IfEnd
Goto 2
Lbl A
Cls
RclPict 1
20A
0P
For 17T To 47 Step 5
Text T,80," "
Next
Prog "CLAD"
1P
Prog "CLAD"
Cls
RclPict 1
4P
Prog "CLAD"
For 1T To 200
Next
Cls
RclPict 1
For 25T To 47 Step 2
Text T,35," "
Next
80A
0P
Prog "CLAD"
2J
15xEW
Goto 3
IfEnd
Goto 2
Lbl C
Text 13,12,"THOR 25MP [T]"
20G
For 1T To 5
Text G,12," "
G+6G
Next
For 1T To 2
1T
GetkeyZ
Z02T
Next
If Z=33 And M>24:Then Cls
THOR
RclPict 1
For 17T To 47 Step 5
Text T,90," "
Next
For 10T To 40
F-Line 61,T,65,T
Next
Circle 63,50,10
For 1T To 75
Int (Ran#x50+10)G
Int (Ran#x126+1)H
F-Line 63,50,H,G
Next
For 1T To 500
Next
M-25M
Ex150W
2J
Goto 3
IfEnd
Goto 2
Lbl F
Graph Y10
Cls
V0Goto G
O=4Goto X
Mat G[4,5]-1D
DMat G[4,5]
If D=0:Then 5Mat G[4,5]
Mat G[4,4]+1Mat G[4,4]
IfEnd
Text 10,1,"NIVEAU:"
Text 10,31,Mat G[4,4]
Text 20,1,"PROCHAIN NIVEAU DANS COMBAT"
Text 20,91,Mat G[4,5]
Text 30,1,"MP MAX +"
O=19P
O=25P
Text 30,37,P
Mat G[4,2]+PMat G[4,2]
Text 40,1,"OBJET RECU:"
Int (Ran#x7+1)R
R=51R
If R=1:Then Text 40,45,"POTION"
Mat G[4,6]+1Mat G[4,6]
IfEnd
If R=2:Then Text 40,45,"SUPER POTION"
Mat G[4,7]+1Mat G[4,7]
IfEnd
If R=3:Then Text 40,45,"ETHER"
Mat G[4,8]+1Mat G[4,8]
IfEnd
If R=4:Then Text 40,45,"X-ETHER"
Mat G[4,9]+1Mat G[4,9]
IfEnd
R>4Text 40,45,"AUCUN"
Text 57,53,"[EXE]"
For 1T To 2
1T
Getkey2T
Next
V=7771V
VMat G[4,3]
MMat G[4,1]
25V
Return
Lbl G
Text 30,46,"GAME OVER"
Stop
Stop
Lbl X
Cls
"FIN!"
Stop